home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / SWI / source / lib / backcomp.pl < prev    next >
Encoding:
Text File  |  1997-07-02  |  823 b   |  40 lines
  1. /*  $Id: backcomp.pl,v 1.2 1997/07/02 15:21:21 jan Exp $
  2.  
  3.     Designed and implemented by Jan Wielemaker
  4.     E-mail: jan@swi.psy.uva.nl
  5.  
  6.     Copyright (C) 1994 University of Amsterdam. All rights reserved.
  7. */
  8.  
  9. :- module(backward_compatibility,
  10.       [ '$arch'/2,
  11.         '$version'/1,
  12.         '$home'/1,
  13.         display/1,
  14.         display/2,
  15.         displayq/1,
  16.         displayq/2
  17.       ]).
  18.  
  19. '$arch'(Arch, unknown) :-
  20.     feature(arch, Arch).
  21.  
  22. '$version'(Version) :-
  23.     feature(version, Version).
  24.  
  25. '$home'(Home) :-
  26.     feature(home, Home).
  27.  
  28. display(Term) :-
  29.     write_term(Term, [ignore_ops(true)]).
  30. display(Stream, Term) :-
  31.     write_term(Stream, Term, [ignore_ops(true)]).
  32.  
  33. %    or write_canonical/[1,2]
  34.  
  35. displayq(Term) :-
  36.     write_term(Term, [ignore_ops(true),quoted(true)]).
  37. displayq(Stream, Term) :-
  38.     write_term(Stream, Term, [ignore_ops(true),quoted(true)]).
  39.  
  40.